/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Complete Applications / MEdit 1.5 / Pascal

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3d 00 00 00 0b 09 43 | 6f 6d 6d 65 6e 74 2f 4b |.=.....C|omment/K|
|00000010| 0b 55 6e 63 6f 6d 6d 65 | 6e 74 2f 55 01 2d 0d 50 |.Uncomme|nt/U.-.P|
|00000020| 6c 61 63 65 68 6f 6c 64 | 65 72 2f 2d 01 2d 09 50 |lacehold|er/-.-.P|
|00000030| 52 4f 47 52 41 4d 2f 50 | 09 50 52 4f 43 45 44 55 |ROGRAM/P|.PROCEDU|
|00000040| 52 45 07 42 45 47 49 4e | 2f 42 05 46 4f 52 2f 4c |RE.BEGIN|/B.FOR/L|
|00000050| 04 43 41 53 45 04 49 46 | 2f 49 00 00 00 0d 00 00 |.CASE.IF|/I......|
|00000060| 00 46 00 6b 00 6c 00 9c | 00 9d 01 20 01 ba 01 e2 |.F.k.l..|... ....|
|00000070| 02 2f 02 94 02 de 02 fd | 03 18 08 00 0b 20 28 0c |./......|..... (.|
|00000080| 20 02 15 02 20 7d 00 0b | 1f 28 0c 1f 02 15 02 7b | ... }..|.(.....{|
|00000090| 20 09 0f 0b 18 2a 0b 19 | 14 00 31 00 0b 18 28 0c | ....*..|..1...(.|
|000000a0| 18 27 0b 19 28 0c 19 16 | 14 00 04 10 14 00 45 00 |.'..(...|......E.|
|000000b0| 0b 18 28 0c 18 27 0b 19 | 28 0c 19 16 14 00 02 23 |..(..'..|(......#|
|000000c0| 08 00 0b 20 28 0c 20 17 | 14 00 02 27 0b 20 28 0c |... (. .|...'. (.|
|000000d0| 20 07 00 0b 1f 28 0c 1f | 27 0b 1f 28 0c 1f 16 14 | ....(..|'..(....|
|000000e0| 00 02 07 09 23 23 01 15 | 02 7b 2e 0f 0b 19 2a 14 |....##..|.{....*.|
|000000f0| 00 00 0d 0c 19 2a 14 00 | 00 14 00 87 01 15 02 7b |.....*..|.......{|
|00000100| 2e 08 01 15 02 2e 7d 00 | 0b 1f 28 0c 1f 27 0b 19 |......}.|..(..'..|
|00000110| 28 0c 19 1a 03 23 23 08 | 02 15 16 50 52 4f 47 52 |(....##.|...PROGR|
|00000120| 41 4d 20 7b 2e 50 72 6f | 67 4e 61 6d 65 2e 7d 3b |AM {.Pro|gName.};|
|00000130| 1d 02 15 17 43 4f 4e 53 | 54 0d 0e 7b 2e 43 6f 6e |....CONS|T..{.Con|
|00000140| 73 74 61 6e 74 73 2e 7d | 3b 1d 1d 02 15 12 54 59 |stants.}|;.....TY|
|00000150| 50 45 0d 0e 7b 2e 54 79 | 70 65 73 2e 7d 3b 1d 1d |PE..{.Ty|pes.};..|
|00000160| 02 15 15 56 41 52 0d 0e | 7b 2e 56 61 72 69 61 62 |...VAR..|{.Variab|
|00000170| 6c 65 73 2e 7d 3b 1d 1d | 02 15 1a 42 45 47 49 4e |les.};..|...BEGIN|
|00000180| 0d 0e 7b 2e 53 74 61 74 | 65 6d 65 6e 74 2e 7d 3b |..{.Stat|ement.};|
|00000190| 1d 45 4e 44 2e 31 14 00 | 0d 23 08 02 15 29 50 52 |.END.1..|.#...)PR|
|000001a0| 4f 43 45 44 55 52 45 20 | 7b 2e 50 72 6f 63 4e 61 |OCEDURE |{.ProcNa|
|000001b0| 6d 65 2e 7d 20 28 7b 2e | 50 61 72 61 6d 65 74 65 |me.} ({.|Paramete|
|000001c0| 72 73 2e 7d 29 3b 0d 02 | 15 18 43 4f 4e 53 54 0d |rs.});..|..CONST.|
|000001d0| 0e 7b 2e 43 6f 6e 73 74 | 61 6e 74 73 2e 7d 3b 0d |.{.Const|ants.};.|
|000001e0| 1e 0d 02 15 13 54 59 50 | 45 0d 0e 7b 2e 54 79 70 |.....TYP|E..{.Typ|
|000001f0| 65 73 2e 7d 3b 0d 1e 0d | 02 15 16 56 41 52 0d 0e |es.};...|...VAR..|
|00000200| 7b 2e 56 61 72 69 61 62 | 6c 65 73 2e 7d 3b 0d 1e |{.Variab|les.};..|
|00000210| 0d 02 15 1b 42 45 47 49 | 4e 0d 0e 7b 2e 53 74 61 |....BEGI|N..{.Sta|
|00000220| 74 65 6d 65 6e 74 2e 7d | 3b 0d 1e 45 4e 44 3b 31 |tement.}|;..END;1|
|00000230| 14 00 0d 23 08 02 15 1b | 42 45 47 49 4e 0d 0e 7b |...#....|BEGIN..{|
|00000240| 2e 53 74 61 74 65 6d 65 | 6e 74 2e 7d 3b 0d 1e 45 |.Stateme|nt.};..E|
|00000250| 4e 44 3b 31 14 00 0c 31 | 14 00 0d 23 08 02 15 2e |ND;1...1|...#....|
|00000260| 46 4f 52 20 7b 2e 56 61 | 72 69 61 62 6c 65 2e 7d |FOR {.Va|riable.}|
|00000270| 20 3a 3d 20 7b 2e 56 61 | 6c 75 65 2e 7d 20 54 4f | := {.Va|lue.} TO|
|00000280| 20 7b 2e 56 61 6c 75 65 | 2e 7d 20 44 4f 0d 02 15 | {.Value|.} DO...|
|00000290| 0f 0e 7b 2e 53 74 61 74 | 65 6d 65 6e 74 2e 7d 3b |..{.Stat|ement.};|
|000002a0| 31 14 00 0c 31 14 00 0d | 23 08 02 15 21 43 41 53 |1...1...|#...!CAS|
|000002b0| 45 20 7b 2e 56 61 6c 75 | 65 2e 7d 20 4f 46 0d 7b |E {.Valu|e.} OF.{|
|000002c0| 2e 43 6f 6e 73 74 61 6e | 74 2e 7d 3a 0d 0e 02 15 |.Constan|t.}:....|
|000002d0| 1c 7b 2e 53 74 61 74 65 | 6d 65 6e 74 2e 7d 3b 0d |.{.State|ment.};.|
|000002e0| 1e 0d 4f 54 48 45 52 57 | 49 53 45 0d 0e 02 15 15 |..OTHERW|ISE.....|
|000002f0| 7b 2e 53 74 61 74 65 6d | 65 6e 74 2e 7d 3b 0d 1e |{.Statem|ent.};..|
|00000300| 0d 45 4e 44 3b 31 14 00 | 0c 31 14 00 0d 23 08 02 |.END;1..|.1...#..|
|00000310| 15 26 49 46 20 7b 2e 43 | 6f 6e 64 69 74 69 6f 6e |.&IF {.C|ondition|
|00000320| 2e 7d 0d 54 48 45 4e 0d | 0e 7b 2e 53 74 61 74 65 |.}.THEN.|.{.State|
|00000330| 6d 65 6e 74 2e 7d 0d 1e | 02 15 14 45 4c 53 45 0d |ment.}..|...ELSE.|
|00000340| 0e 7b 2e 53 74 61 74 65 | 6d 65 6e 74 2e 7d 3b 31 |.{.State|ment.};1|
|00000350| 14 00 0c 31 14 00 0d 23 | 08 00 0b 18 28 0c 18 17 |...1...#|....(...|
|00000360| 14 00 01 01 15 02 3b 3b | 0f 0b 18 2a 0b 1f 14 02 |......;;|...*....|
|00000370| fb 02 15 01 3b 09 23 09 | 01 15 02 7b 2e 08 01 15 |....;.#.|...{....|
|00000380| 02 2e 7d 00 0b 1f 28 0c | 1f 27 0b 19 28 0c 19 1a |..}...(.|.'..(...|
|00000390| 03 23                   |                         |.#      |        |
+--------+-------------------------+-------------------------+--------+--------+